home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / MP3 Player / frmOpt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-12-10  |  2.7 KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Options"
  4.    ClientHeight    =   3675
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4620
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3675
  10.    ScaleWidth      =   4620
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdOk 
  13.       Caption         =   "OK"
  14.       Height          =   375
  15.       Left            =   2040
  16.       TabIndex        =   3
  17.       Top             =   3240
  18.       Width           =   735
  19.    End
  20.    Begin VB.CommandButton cmdCancel 
  21.       Caption         =   "Cancel"
  22.       Height          =   375
  23.       Left            =   2880
  24.       TabIndex        =   2
  25.       Top             =   3240
  26.       Width           =   735
  27.    End
  28.    Begin VB.CommandButton cmdDef 
  29.       Caption         =   "Set as default"
  30.       Height          =   375
  31.       Left            =   3720
  32.       TabIndex        =   1
  33.       Top             =   3240
  34.       Width           =   735
  35.    End
  36.    Begin VB.Frame frmOpt 
  37.       Caption         =   "Options"
  38.       Height          =   3135
  39.       Left            =   0
  40.       TabIndex        =   0
  41.       Top             =   0
  42.       Width           =   4575
  43.       Begin VB.OptionButton PlayNo 
  44.          Caption         =   "No"
  45.          Height          =   255
  46.          Left            =   2280
  47.          TabIndex        =   5
  48.          Top             =   360
  49.          Width           =   855
  50.       End
  51.       Begin VB.OptionButton PlayYes 
  52.          Caption         =   "Yes"
  53.          Height          =   255
  54.          Left            =   1440
  55.          TabIndex        =   4
  56.          Top             =   360
  57.          Width           =   855
  58.       End
  59.       Begin VB.Label Label1 
  60.          Caption         =   "Repeat forever"
  61.          Height          =   255
  62.          Left            =   120
  63.          TabIndex        =   6
  64.          Top             =   360
  65.          Width           =   1215
  66.       End
  67.    End
  68. Attribute VB_Name = "Form1"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73. Private Sub cmdDef_Click()
  74. Dim CPlay As String
  75. ChDir App.Path
  76. Open "Options.dat" For Output As #1   ' Open file for output.
  77. If PlayYes = True Then
  78. CPlay = 0
  79. ElseIf PlayNo = True Then
  80. CPlay = 1
  81. End If
  82. Write #1, CPlay
  83. Close #1
  84. Unload Me
  85. End Sub
  86. Private Sub cmdOk_Click()
  87. Unload Me
  88. End Sub
  89. Private Sub Form_Load()
  90. ChDir App.Path
  91. Open "Options.Dat" For Input Access Read As #1
  92. Input #1, CPlay
  93. Close #1
  94. End Sub
  95. Private Sub PlayNo_Click()
  96. txtPlay.Visible = True
  97. End Sub
  98. Private Sub PlayYes_Click()
  99. txtPlay.Visible = False
  100. End Sub
  101.